﻿Public Class FRMlistadeEmpresa


    Dim listaempresa As New LinkedList(Of Empresa)
    Public Property ListaEmpresaTotales As LinkedList(Of Empresa)
        Get
            Return listaempresa
        End Get
        Set(ByVal value As LinkedList(Of Empresa))
            listaempresa = value

        End Set
    End Property
    Private Sub LSTlista_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LSTlista.SelectedIndexChanged

        ' pamela error 
        ' no deberia ser aqui sino este codigo deberia estar en load 
        ' en clase les decia que le den click en el marquito de la ventana :)
        ' antes
        'Dim item As ListViewItem
        ' item = Me.LSTlista.Items.Add(New ListViewItem(ListaEmpresaTotales.First.Value.nomEmpresa, 0))
    End Sub

    Private Sub FRMlistadeEmpresa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' el codigo deberia estar aqui.
       


        For Each myEmpresa As Empresa In listaempresa
            Dim item As ListViewItem

            ' pamela error
            ' se debe jalar ala lista, es decir a : listaempresa , NO a su Property :ListaEmpresaTotales
            ' antes item = Me.LSTlista.Items.Add(New ListViewItem(ListaEmpresaTotales.First.Value.nomEmpresa, 0))
            item = Me.LSTlista.Items.Add(New ListViewItem(myEmpresa.nomEmpresa, 0))
            item.SubItems.Add(myEmpresa.direccionEmpresa)
            item.SubItems.Add(myEmpresa.numerodeTelefonoEmpresa)
            item.SubItems.Add(myEmpresa.personaContactoEmpresa)
            item.SubItems.Add(myEmpresa.domicilioFiscalEmpresa)

        Next

    End Sub
End Class